home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
G-Games
/
(c)gc.d64
/
slither war.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
3KB
|
65 lines
0 REM*BASED ON THE TPUG VIC 20 PROGRAM 'TRON' BY KEITH BRUCE
1 REM*GAME MODIFIED & CONVERTED TO THE COMMODORE 64 BY ROGER D BURGE, #2667
2 REM*TORONTO PET USERS GROUP INC., TORONTO, ONTARIO, CANADA
4 BS=32:BN=87:DIMCS(80):CS(.)=30:CS(39)=60:CS(80)=22:CS(41)=62:SA=81:T9=39:EI=80
6 POKE53280,.:POKE53281,.
7 GOSUB900:GOSUB245
30 POKE53281,1:PRINT"[142][147]";:POKE53281,.
31 PRINT" SLITHER WAR! [146]SCORE: HI:"HI
35 PRINT"[145]SCORE: HI:"HI:POKE781,40:SYSJS
50 FORT=1104TO1984STEP40:POKET,214:POKET+54272,13:POKET+39,214:POKET+54311,13:NEXT
55 FORT=1105TO1142:POKET,214:POKET+54272,13:POKET+880,214:POKET+55152,13:NEXT
65 TR=1545:C(1)=1582:C(2)=1822:LD=1:DA=1:DB=2:LL=40:L3=41:SW=1083:L=RND(-TI)
70 C(3)=1342:L=3:T4=24:KC=.9:T3=33
75 SYSSI:SYSJS:DR=L3-PEEK(ZP):IFPEEK(TR+DR)<>BSTHEN190
105 POKETR,SA:TR=TR+DR:POKETR,CS(DR+LL):SC=SC+DA:PRINT"";SC:
110 IFRND(DA)>KCTHEN75
115 FORR=DATO3:IFPEEK(C(R))=T4THENNEXTR:GOTO75
120 IFRND(DA)>KCTHEN145
125 IFPEEK(C(R)-DA)=BSTHENPOKEC(R),BN:C(R)=C(R)-DA:POKEC(R),CS(T9):NEXTR:GOTO75
135 IFPEEK(C(R)+DA)=BSTHENPOKEC(R),BN:C(R)=C(R)+DA:POKEC(R),CS(L3):NEXTR:GOTO75
145 IFPEEK(C(R)-LL)=BSTHENPOKEC(R),BN:C(R)=C(R)-LL:POKEC(R),CS(.):NEXTR:GOTO75
155 IFPEEK(C(R)+LL)=BSTHENPOKEC(R),BN:C(R)=C(R)+LL:POKEC(R),CS(EI):NEXTR:GOTO75
165 IFPEEK(C(R)-DA)<>BSANDPEEK(C(R)+DA)<>BSANDPEEK(C(R)+LL)<>BSANDPEEK(C(R)-LL)<>BSTHEN175
170 NEXT:GOTO75
175 POKESW,BN:FORH=DATO10:POKEC(R),42:POKES2,T3:POKEC(R),24:POKES2,.:NEXT
180 L=L-1:SC=SC+100:PRINT"SCORE:"SC:IFL=.THEN190
185 SW=SW+DA:NEXTR:GOTO75
190 FORH=DATO10:POKES1,17:POKETR,42:POKES2,129:POKETR,24:POKES2,.:POKES1,.:NEXT
200 PRINT"[159] GAME OVER! "
205 PRINT"[158] PLAY AGAIN? (Y/N) "
206 IFSC>HITHENHI=SC:PRINT""SPC(30)" HI:"HI"[157] "
210 GETA$:IFA$="Y"THENSC=.:GOTO30
215 IFA$<>"N"THEN210
220 GOTO500
245 PRINT"[147][153][214][214][214][214][214][214][214][214][214][214][214][214][214] SLITHER WAR! [153][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
246 PRINT" [158]BY ROGER D. BURGE AND KEITH BRUCE "
250 PRINT" YOUR SNAKE [209][209][209][209][209]> IS CONTROLED BY JOYSTICK #1.
251 [153]" YOU MUST STAY ALIVE IN A SNAKE PEN WITH 3 OTHER SNAKES TRYING";
252 [153]" TO GET MORE SPACE. ";
255 [153]"IF A SNAKE TOUCHES ITSELF, A WALL OR A SNAKE IT DIES. EACH SNAKE";
260 [153]" GROWS LONGER AS IT MOVES.":[153]" YOU GET 1 POINT FOR EACH SEGMENT ";
261 [153]"YOU GROW. ";
265 [153]"100 POINTS FOR EACH OF THE 3 OPPOSING SNAKES KILLED.
269 PRINT"[153] "
270 PRINT"[153] PRESS FIRE TO PLAY "
271 PRINT"[153] "
280 IFPEEK(56321)AND16THEN280
285 RETURN
500 PRINT" [144][146][147]":END
900 FORT=820TO860:READA:POKET,A:NEXT:JS=820:ZP=251
930 FORT=861TO888:READA:POKET,A:NEXT:SI=861
950 SV=54272:FORT=SVTOSV+24:POKET,.:NEXT
960 POKESV+24,15:POKESV+5,17:POKESV+6,17
970 POKESV+1,28:POKESV,.
975 POKESV+12,17:POKESV+13,17:POKESV+8,28:POKESV+7,.
980 S1=54276:S2=SV+11:RETURN
4090 DATA173,1,220,41,15
4150 DATA201,7,208,5,162,40,76,90,3
4210 DATA201,13,208,5,162,1,76,90,3
4270 DATA201,11,208,5,162,42,76,90,3
4330 DATA201,14,208,2,162,81
4390 DATA134,251,96
4870 DATA160,.,169,17,141,4,212,162,255,24,202,224,.,208,251,200,192
4930 DATA2,208,239,169,16,141,4,212,166,251,96